home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
007
/
flowc1.arc
/
FLOWDEMO.FLO
< prev
next >
Wrap
Text File
|
1985-12-16
|
2KB
|
75 lines
.$XM 1.5,0,.25,8.40
.$XH 2,9.75
ENTER .$H FIGURE 1
.$P COMMENT IN PROCESS BOX
.$L THIS IS A LISTING SYMBOL
.$S SUBLABLE/ COMMENT IN SUBROUTINE BOX
.$W PREPLABLE/ COMMENT IN PREPARATION BOX
.$I INOUTLABLE/ COMMENT IN INPUT/ OUTPUT BOX
.$J LABLE
RESTART .$C THIS IS A COMMENT
.$M ERROR1
LABLE .$D THIS IS A DISPLAY SYMBOL
.$T GOOD?
.$J GOODJUMP
.$T BAD?
.$E ERROR
GOODJUMP .$D DISPLAY DATA
.$E
.$XR MH
START .$H FIGURE 2
.$T IS PRINTER OFF?
.$P PRINT LINE
.$P GET NEXT LINE
.$T PASS 1?
.$A YES,BRANCH1 NO
.$P PROCESS ONE
.$T PASS 2?
.$A YES,BRANCH2 NO,BRANCH1
BRANCH1 .$P PROCESS TWO
BRANCH2 .$P PROCESS THREE
.$T4 BRANCH ON CODE
.$A CODE=4,ROUTINE4 CODE=3,ROUTINE3 ;
.$ CODE=2,ROUTINE2 CODE=1
ROUTINE1 .$S ROUTINE 1
ROUTINE2 .$S ROUTINE 2
ROUTINE3 .$S ROUTINE 3
ROUTINE4 .$S ROUTINE 4
.$T DATA READY?
.$A YES NO
.$P GET DATA
.$P PROCESS ANY DATA
.$T STOP?
.$AE YES,HALT NO
.$E RETURN
.$XR
.$xt F0,2,0.00,Line of Text using font=0
.$xt F1,2,0.25,Line of Text using font=1
.$xt F2,2,0.50,Line of Text using font=2
.$xt F3,2,0.75,Line of Text using font=3
.$xt F4,2,1.00,Line of Text using font=4
.$xt F5,2,1.25,Line of Text using font=5
.$xt F6,2,1.50,Line of Text using font=6
.$xt F7,2,1.75,Line of Text using font=7
.$xt F8,2,2.00,Line of Text using font=8
.$xt F9,2,2.25,Line of Text using font=9
.$xt F10,2,2.50,Line of Text using font=10
.$xt F11,2,2.75,Line of Text using font=11
.$xt F12,2,3.00,Line of Text using font=12
.$xt F13,2,3.25,Line of Text using font=13
.$xt F14,2,3.50,Line of Text using font=14
.$xt F15,2,3.75,Line of Text using font=15
ENTRANCE .$H FIGURE 3
SUBLABLE .$P PROCESS SUBROUTINE
PREPLABLE .$P DO PREPARATION
INOUTLABLE .$P PROCESS INPUT /OUTPUT
.$E